home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n08 / shell.exe / BOXMAKER.BAS next >
Encoding:
BASIC Source File  |  1991-07-13  |  955 b   |  18 lines
  1. 100  ' BOXMAKER.BAS
  2. 110 CLS:KEY OFF:OPEN "TEMPLAT"+CHR$(65+K)+".BAT" FOR OUTPUT AS #1
  3. 120 LOCATE 11,23:PRINT "Box width (10 - 70 characters):";SPC(10)
  4. 130 LOCATE 11,55:INPUT "",W$:W=VAL(W$):IF W<10 OR W>70 THEN BEEP:GOTO 120
  5. 140 L=(81-W)\2:R=80-L-W:B$=CHR$(219):S$=STRING$(2,178)
  6. 150 LOCATE 13,23:PRINT "Box height (4 - 22 lines):";SPC(10)
  7. 160 LOCATE 13,50:INPUT "",T$:T=VAL(T$):IF T<4 OR T>22 THEN BEEP:GOTO 150
  8. 170 PRINT #1,"@ECHO OFF":PRINT #1,"CLS":TOP=(25-T)\2:BOTTOM=25-TOP-T
  9. 180 FOR C=1 TO TOP:PRINT #1,"ECHO.":NEXT
  10. 190 PRINT #1,"ECHO";SPC(L);B$;STRING$(78-L-R,223);B$
  11. 200 FOR D=1 TO 23-TOP-BOTTOM
  12. 210 PRINT #1,"ECHO";SPC(L);B$;STRING$(78-L-R,32);B$;S$:NEXT
  13. 220 PRINT #1,"ECHO";SPC(L);B$;STRING$(78-L-R,220);B$;S$
  14. 230 PRINT #1,"ECHO";SPC(L);STRING$(2,32);STRING$(80-L-R,178)
  15. 240 CLOSE:LOCATE 15,23:PRINT "Want to create another one (Y/N)?"
  16. 250 I$=INKEY$:IF I$="" THEN 250 ELSE IF I$<>"Y" AND I$<>"y" THEN SYSTEM
  17. 260 K=K+1:GOTO 110
  18.